10 REM GROBFASSUNG
11 PRINT"[147]":POKE53281,0:POKE53280,0
12 F=INT(RND(1)*15)+1
13 IFF=(PEEK(53281)AND15)THEN12
14 P=P+1:IFP=5THENP=1
15 POKE646,F
16 ONPGOTO17,19,21,23
17 POKE211,15:POKE214,7:SYS58640
18 PRINT" A[209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209] ":GOTO12
19 POKE211,15:POKE214,12:SYS58640
20 PRINT"C[209][209][209] [157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157] [209][209][209][209]":GOTO12
21 POKE211,20:POKE214,12:SYS58640
22 PRINT" D[209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209] ":GOTO12
23 POKE211,20:POKE214,7:SYS58640
24 PRINT"B[209][209][209] [157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157][209][209][209][209][209][157][157][157][157][157] [209][209][209][209]":GOTO12